home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / pump_src / setup / detecasm.asm < prev    next >
Encoding:
Assembly Source File  |  1993-08-14  |  653 b   |  41 lines
  1.         IDEAL
  2.         MODEL TPASCAL
  3.         P386
  4.  
  5.         CODESEG
  6.         PUBLIC Is386, IsProtMode, HasMouse
  7.  
  8. PROC Is386
  9.         PUSHF
  10.         MOV     AX,7000h
  11.         PUSH    AX
  12.         POPF
  13.         PUSHF
  14.         POP     AX
  15.         AND     AX,7000h
  16.         JZ      @@ok
  17.          MOV    AX,1
  18.     @@ok:
  19.         POPF
  20.         RET
  21. ENDP
  22.  
  23. PROC IsProtMode
  24.         SMSW    AX
  25.         AND     AX,1
  26.         RET
  27. ENDP
  28.  
  29. PROC HasMouse
  30.         XOR     AX,AX
  31.         MOV     ES,AX
  32.         MOV     AX,[ES:33h*4]
  33.         OR      AX,[ES:33h*4+2]
  34.         JZ      @@ret
  35.         XOR     AX,AX
  36.         INT     33h
  37. @@ret:  RET
  38. ENDP
  39.  
  40. END
  41.